﻿Public Class Curso
    Private nombre As String
    Private id As Integer
    Private creditos As Integer
    Private tipo As String
    Private lugar As String
    Private fecha As Date
    Private pagina As String
    Private correo As String
    Private info As String

    Public Sub New(ByVal nombre As String, ByVal id As Integer, _
                    ByVal creditos As Integer, ByVal tipo As String, _
                    ByVal correo As String, ByVal lugar As String, _
                    ByVal fecha As Date, ByVal pagina As String, _
                    ByVal info As String)

        Me.nombre = nombre
        Me.id = id
        Me.creditos = creditos
        Me.tipo = tipo
        Me.correo = correo
        Me.lugar = lugar
        Me.fecha = fecha
        Me.pagina = pagina
        Me.info = info
    End Sub

    Public Property p_nombre() As String
        Get
            Return nombre
        End Get
        Set(ByVal value As String)
            nombre = value
        End Set
    End Property
    Public Property p_id() As Integer
        Get
            Return id
        End Get
        Set(ByVal value As Integer)
            id = value
        End Set
    End Property
    Public Property p_creditos() As Integer
        Get
            Return creditos
        End Get
        Set(ByVal value As Integer)
            creditos = value
        End Set
    End Property
    Public Property p_tipo() As String
        Get
            Return tipo
        End Get
        Set(ByVal value As String)
            tipo = value
        End Set
    End Property
    Public Property p_lugar() As String
        Get
            Return lugar
        End Get
        Set(ByVal value As String)
            lugar = value
        End Set
    End Property
    Public Property p_fecha() As Date
        Get
            Return fecha
        End Get
        Set(ByVal value As Date)
            fecha = value
        End Set
    End Property
    Public Property p_pagina() As String
        Get
            Return pagina
        End Get
        Set(ByVal value As String)
            pagina = value
        End Set
    End Property
    Public Property p_correo() As String
        Get
            Return correo
        End Get
        Set(ByVal value As String)
            correo = value
        End Set
    End Property
    Public Property p_info() As String
        Get
            Return info
        End Get
        Set(ByVal value As String)
            info = value
        End Set
    End Property
End Class
